/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_emacs.idb / usr / freeware / share / emacs / 19.34 / lisp / enriched.elc.z / enriched.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6b 77 7a 68 40 67 6e |piled by| kwzh@gn|
|00000020| 75 2e 61 69 2e 6d 69 74 | 2e 65 64 75 20 6f 6e 20 |u.ai.mit|.edu on |
|00000030| 53 61 74 20 4d 61 79 20 | 31 38 20 31 35 3a 34 32 |Sat May |18 15:42|
|00000040| 3a 32 37 20 31 39 39 36 | 0a 3b 3b 3b 20 66 72 6f |:27 1996|.;;; fro|
|00000050| 6d 20 66 69 6c 65 20 2f | 68 6f 6d 65 2f 67 64 2f |m file /|home/gd/|
|00000060| 67 6e 75 2f 65 6d 61 63 | 73 2f 31 39 2e 30 2f 6c |gnu/emac|s/19.0/l|
|00000070| 69 73 70 2f 65 6e 72 69 | 63 68 65 64 2e 65 6c 0a |isp/enri|ched.el.|
|00000080| 3b 3b 3b 20 65 6d 61 63 | 73 20 76 65 72 73 69 6f |;;; emac|s versio|
|00000090| 6e 20 31 39 2e 32 39 2e | 31 2e 0a 3b 3b 3b 20 62 |n 19.29.|1..;;; b|
|000000a0| 79 74 65 63 6f 6d 70 20 | 76 65 72 73 69 6f 6e 20 |ytecomp |version |
|000000b0| 46 53 46 20 32 2e 31 30 | 0a 3b 3b 3b 20 6f 70 74 |FSF 2.10|.;;; opt|
|000000c0| 69 6d 69 7a 61 74 69 6f | 6e 20 69 73 20 6f 6e 2e |imizatio|n is on.|
|000000d0| 0a 3b 3b 3b 20 74 68 69 | 73 20 66 69 6c 65 20 75 |.;;; thi|s file u|
|000000e0| 73 65 73 20 6f 70 63 6f | 64 65 73 20 77 68 69 63 |ses opco|des whic|
|000000f0| 68 20 64 6f 20 6e 6f 74 | 20 65 78 69 73 74 20 69 |h do not| exist i|
|00000100| 6e 20 45 6d 61 63 73 20 | 31 38 2e 0a 0a 28 69 66 |n Emacs |18...(if|
|00000110| 20 28 61 6e 64 20 28 62 | 6f 75 6e 64 70 20 27 65 | (and (b|oundp 'e|
|00000120| 6d 61 63 73 2d 76 65 72 | 73 69 6f 6e 29 0a 09 20 |macs-ver|sion).. |
|00000130| 28 6f 72 20 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |(or (and| (boundp|
|00000140| 20 27 65 70 6f 63 68 3a | 3a 76 65 72 73 69 6f 6e | 'epoch:|:version|
|00000150| 29 20 65 70 6f 63 68 3a | 3a 76 65 72 73 69 6f 6e |) epoch:|:version|
|00000160| 29 0a 09 20 20 20 20 20 | 28 73 74 72 69 6e 67 2d |)..     |(string-|
|00000170| 6c 65 73 73 70 20 65 6d | 61 63 73 2d 76 65 72 73 |lessp em|acs-vers|
|00000180| 69 6f 6e 20 22 31 39 2e | 32 38 2e 39 30 22 29 29 |ion "19.|28.90"))|
|00000190| 29 0a 20 20 20 20 28 65 | 72 72 6f 72 20 22 60 65 |).    (e|rror "`e|
|000001a0| 6e 72 69 63 68 65 64 2e | 65 6c 27 20 77 61 73 20 |nriched.|el' was |
|000001b0| 63 6f 6d 70 69 6c 65 64 | 20 66 6f 72 20 45 6d 61 |compiled| for Ema|
|000001c0| 63 73 20 31 39 2e 32 39 | 20 6f 72 20 6c 61 74 65 |cs 19.29| or late|
|000001d0| 72 22 29 29 0a 0a 0a 28 | 62 79 74 65 2d 63 6f 64 |r"))...(|byte-cod|
|000001e0| 65 20 22 c0 c1 21 88 5c | 6e 83 5c 66 00 c3 c4 21 |e "..!.\|n.\f...!|
|000001f0| 88 c0 87 22 20 5b 70 72 | 6f 76 69 64 65 20 65 6e |..." [pr|ovide en|
|00000200| 72 69 63 68 65 64 20 77 | 69 6e 64 6f 77 2d 73 79 |riched w|indow-sy|
|00000210| 73 74 65 6d 20 72 65 71 | 75 69 72 65 20 66 61 63 |stem req|uire fac|
|00000220| 65 6d 65 6e 75 5d 20 32 | 29 0a 23 40 36 37 20 2a |emenu] 2|).#@67 *|
|00000230| 49 66 20 6e 6f 6e 2d 6e | 69 6c 2c 20 67 69 76 65 |If non-n|il, give|
|00000240| 20 73 74 61 74 75 73 20 | 6d 65 73 73 61 67 65 73 | status |messages|
|00000250| 20 77 68 65 6e 20 72 65 | 61 64 69 6e 67 20 61 6e | when re|ading an|
|00000260| 64 20 77 72 69 74 69 6e | 67 20 66 69 6c 65 73 2e |d writin|g files.|
|00000270| 1f 0a 28 64 65 66 76 61 | 72 20 65 6e 72 69 63 68 |..(defva|r enrich|
|00000280| 65 64 2d 76 65 72 62 6f | 73 65 20 74 20 28 23 24 |ed-verbo|se t (#$|
|00000290| 20 2e 20 2d 35 35 39 29 | 29 0a 23 40 32 33 38 20 | . -559)|).#@238 |
|000002a0| 2a 44 65 66 61 75 6c 74 | 20 61 6d 6f 75 6e 74 20 |*Default| amount |
|000002b0| 6f 66 20 73 70 61 63 65 | 20 74 6f 20 6c 65 61 76 |of space| to leav|
|000002c0| 65 20 6f 6e 20 74 68 65 | 20 72 69 67 68 74 20 65 |e on the| right e|
|000002d0| 64 67 65 20 6f 66 20 74 | 68 65 20 73 63 72 65 65 |dge of t|he scree|
|000002e0| 6e 2e 0a 54 68 69 73 20 | 63 61 6e 20 62 65 20 69 |n..This |can be i|
|000002f0| 6e 63 72 65 61 73 65 64 | 20 69 6e 73 69 64 65 20 |ncreased| inside |
|00000300| 74 65 78 74 20 62 79 20 | 63 68 61 6e 67 69 6e 67 |text by |changing|
|00000310| 20 74 68 65 20 27 72 69 | 67 68 74 2d 6d 61 72 67 | the 'ri|ght-marg|
|00000320| 69 6e 20 74 65 78 74 20 | 70 72 6f 70 65 72 74 79 |in text |property|
|00000330| 2e 0a 4d 65 61 73 75 72 | 65 64 20 69 6e 20 63 68 |..Measur|ed in ch|
|00000340| 61 72 61 63 74 65 72 20 | 77 69 64 74 68 73 2e 20 |aracter |widths. |
|00000350| 20 49 66 20 74 68 65 20 | 73 63 72 65 65 6e 20 69 | If the |screen i|
|00000360| 73 20 6e 61 72 72 6f 77 | 65 72 20 74 68 61 6e 20 |s narrow|er than |
|00000370| 74 68 69 73 2c 20 69 74 | 20 69 73 0a 61 73 73 75 |this, it| is.assu|
|00000380| 6d 65 64 20 74 6f 20 62 | 65 20 30 2e 1f 0a 28 64 |med to b|e 0...(d|
|00000390| 65 66 76 61 72 20 65 6e | 72 69 63 68 65 64 2d 64 |efvar en|riched-d|
|000003a0| 65 66 61 75 6c 74 2d 72 | 69 67 68 74 2d 6d 61 72 |efault-r|ight-mar|
|000003b0| 67 69 6e 20 31 30 20 28 | 23 24 20 2e 20 2d 36 37 |gin 10 (|#$ . -67|
|000003c0| 32 29 29 0a 23 40 32 36 | 37 20 49 66 20 74 2c 20 |2)).#@26|7 If t, |
|000003d0| 66 69 6c 6c 73 20 70 61 | 72 61 67 72 61 70 68 73 |fills pa|ragraphs|
|000003e0| 20 77 68 65 6e 20 72 65 | 61 64 69 6e 67 20 69 6e | when re|ading in|
|000003f0| 20 65 6e 72 69 63 68 65 | 64 20 64 6f 63 75 6d 65 | enriche|d docume|
|00000400| 6e 74 73 2e 0a 49 66 20 | 6e 69 6c 2c 20 6f 6e 6c |nts..If |nil, onl|
|00000410| 79 20 66 69 6c 6c 73 20 | 77 68 65 6e 20 79 6f 75 |y fills |when you|
|00000420| 20 65 78 70 6c 69 63 69 | 74 6c 79 20 72 65 71 75 | explici|tly requ|
|00000430| 65 73 74 20 69 74 2e 20 | 20 49 66 20 74 68 65 20 |est it. | If the |
|00000440| 76 61 6c 75 65 20 69 73 | 20 27 61 73 6b 2c 20 74 |value is| 'ask, t|
|00000450| 68 65 6e 0a 69 74 20 77 | 69 6c 6c 20 71 75 65 72 |hen.it w|ill quer|
|00000460| 79 20 79 6f 75 20 77 68 | 65 74 68 65 72 20 74 6f |y you wh|ether to|
|00000470| 20 66 69 6c 6c 2e 0a 46 | 69 6c 6c 69 6e 67 20 69 | fill..F|illing i|
|00000480| 73 20 6e 65 76 65 72 20 | 64 6f 6e 65 20 69 66 20 |s never |done if |
|00000490| 74 68 65 20 63 75 72 72 | 65 6e 74 20 74 65 78 74 |the curr|ent text|
|000004a0| 2d 77 69 64 74 68 20 69 | 73 20 74 68 65 20 73 61 |-width i|s the sa|
|000004b0| 6d 65 20 61 73 20 74 68 | 65 20 76 61 6c 75 65 0a |me as th|e value.|
|000004c0| 73 74 6f 72 65 64 20 69 | 6e 20 74 68 65 20 66 69 |stored i|n the fi|
|000004d0| 6c 65 2e 1f 0a 28 64 65 | 66 76 61 72 20 65 6e 72 |le...(de|fvar enr|
|000004e0| 69 63 68 65 64 2d 66 69 | 6c 6c 2d 61 66 74 65 72 |iched-fi|ll-after|
|000004f0| 2d 76 69 73 69 74 69 6e | 67 20 74 20 28 23 24 20 |-visitin|g t (#$ |
|00000500| 2e 20 39 37 30 29 29 0a | 28 62 79 74 65 2d 63 6f |. 970)).|(byte-co|
|00000510| 64 65 20 22 c0 c1 21 84 | 5c 22 00 c2 c1 21 88 0b |de "..!.|\"...!..|
|00000520| 83 5c 22 00 c4 c1 c5 c6 | c7 c8 20 23 86 1f 00 c5 |.\".....|.. #....|
|00000530| c9 c7 c8 20 23 40 5c 22 | 88 c0 ca 21 84 36 00 c2 |... #@\"|...!.6..|
|00000540| ca 21 88 0b 83 36 00 cb | ca cc cd 23 88 ce 0e 0f |.!...6..|...#....|
|00000550| 21 86 3f 00 d0 20 16 11 | d1 0e 12 42 16 12 0e 11 |!.?.. ..|...B....|
|00000560| d3 d4 d5 20 53 d6 5c 22 | 49 87 22 20 5b 69 6e 74 |... S.\"|I." [int|
|00000570| 65 72 6e 61 6c 2d 66 69 | 6e 64 2d 66 61 63 65 20 |ernal-fi|nd-face |
|00000580| 66 69 78 65 64 20 6d 61 | 6b 65 2d 66 61 63 65 20 |fixed ma|ke-face |
|00000590| 77 69 6e 64 6f 77 2d 73 | 79 73 74 65 6d 20 73 65 |window-s|ystem se|
|000005a0| 74 2d 66 61 63 65 2d 66 | 6f 6e 74 20 78 2d 6c 69 |t-face-f|ont x-li|
|000005b0| 73 74 2d 66 6f 6e 74 73 | 20 22 2a 66 69 78 65 64 |st-fonts| "*fixed|
|000005c0| 2d 6d 65 64 69 75 6d 2a | 22 20 64 65 66 61 75 6c |-medium*|" defaul|
|000005d0| 74 20 73 65 6c 65 63 74 | 65 64 2d 66 72 61 6d 65 |t select|ed-frame|
|000005e0| 20 22 2a 66 69 78 65 64 | 2a 22 20 65 78 63 65 72 | "*fixed|*" excer|
|000005f0| 70 74 20 6d 61 6b 65 2d | 66 61 63 65 2d 69 74 61 |pt make-|face-ita|
|00000600| 6c 69 63 20 6e 69 6c 20 | 74 20 63 6f 70 79 2d 73 |lic nil |t copy-s|
|00000610| 65 71 75 65 6e 63 65 20 | 73 74 61 6e 64 61 72 64 |equence |standard|
|00000620| 2d 64 69 73 70 6c 61 79 | 2d 74 61 62 6c 65 20 6d |-display|-table m|
|00000630| 61 6b 65 2d 64 69 73 70 | 6c 61 79 2d 74 61 62 6c |ake-disp|lay-tabl|
|00000640| 65 20 65 6e 72 69 63 68 | 65 64 2d 64 69 73 70 6c |e enrich|ed-displ|
|00000650| 61 79 2d 74 61 62 6c 65 | 20 63 75 72 72 65 6e 74 |ay-table| current|
|00000660| 2d 6c 6f 61 64 2d 6c 69 | 73 74 20 31 32 20 6d 61 |-load-li|st 12 ma|
|00000670| 6b 65 2d 76 65 63 74 6f | 72 20 66 72 61 6d 65 2d |ke-vecto|r frame-|
|00000680| 77 69 64 74 68 20 34 35 | 5d 20 36 29 0a 23 40 31 |width 45|] 6).#@1|
|00000690| 32 30 20 54 65 78 74 2d | 70 72 6f 70 65 72 74 69 |20 Text-|properti|
|000006a0| 65 73 20 74 68 61 74 20 | 75 73 75 61 6c 6c 79 20 |es that |usually |
|000006b0| 61 70 70 6c 79 20 74 6f | 20 77 68 6f 6c 65 20 70 |apply to| whole p|
|000006c0| 61 72 61 67 72 61 70 68 | 73 2e 0a 54 68 65 73 65 |aragraph|s..These|
|000006d0| 20 61 72 65 20 73 65 74 | 20 66 72 6f 6e 74 2d 73 | are set| front-s|
|000006e0| 74 69 63 6b 79 20 65 76 | 65 72 79 77 68 65 72 65 |ticky ev|erywhere|
|000006f0| 20 65 78 63 65 70 74 20 | 61 74 20 68 61 72 64 20 | except |at hard |
|00000700| 6e 65 77 6c 69 6e 65 73 | 2e 1f 0a 28 64 65 66 63 |newlines|...(defc|
|00000710| 6f 6e 73 74 20 65 6e 72 | 69 63 68 65 64 2d 70 61 |onst enr|iched-pa|
|00000720| 72 2d 70 72 6f 70 73 20 | 28 71 75 6f 74 65 20 28 |r-props |(quote (|
|00000730| 6c 65 66 74 2d 6d 61 72 | 67 69 6e 20 72 69 67 68 |left-mar|gin righ|
|00000740| 74 2d 6d 61 72 67 69 6e | 20 6a 75 73 74 69 66 69 |t-margin| justifi|
|00000750| 63 61 74 69 6f 6e 29 29 | 20 28 23 24 20 2e 20 31 |cation))| (#$ . 1|
|00000760| 36 38 33 29 29 0a 23 40 | 31 39 31 20 57 68 61 74 |683)).#@|191 What|
|00000770| 20 74 6f 20 69 6e 73 65 | 72 74 20 61 74 20 74 68 | to inse|rt at th|
|00000780| 65 20 73 74 61 72 74 20 | 6f 66 20 61 20 74 65 78 |e start |of a tex|
|00000790| 74 2f 65 6e 72 69 63 68 | 65 64 20 66 69 6c 65 2e |t/enrich|ed file.|
|000007a0| 0a 49 66 20 74 68 69 73 | 20 69 73 20 61 20 73 74 |.If this| is a st|
|000007b0| 72 69 6e 67 2c 20 69 74 | 20 69 73 20 69 6e 73 65 |ring, it| is inse|
|000007c0| 72 74 65 64 2e 20 20 49 | 66 20 69 74 20 69 73 20 |rted.  I|f it is |
|000007d0| 61 20 6c 69 73 74 2c 20 | 69 74 20 73 68 6f 75 6c |a list, |it shoul|
|000007e0| 64 20 62 65 20 61 20 6c | 61 6d 62 64 61 0a 65 78 |d be a l|ambda.ex|
|000007f0| 70 72 65 73 73 69 6f 6e | 2c 20 77 68 69 63 68 20 |pression|, which |
|00000800| 69 73 20 65 76 61 6c 75 | 61 74 65 64 20 74 6f 20 |is evalu|ated to |
|00000810| 67 65 74 20 74 68 65 20 | 73 74 72 69 6e 67 20 74 |get the |string t|
|00000820| 6f 20 69 6e 73 65 72 74 | 2e 1f 0a 28 64 65 66 63 |o insert|...(defc|
|00000830| 6f 6e 73 74 20 65 6e 72 | 69 63 68 65 64 2d 69 6e |onst enr|iched-in|
|00000840| 69 74 69 61 6c 2d 61 6e | 6e 6f 74 61 74 69 6f 6e |itial-an|notation|
|00000850| 20 23 5b 6e 69 6c 20 22 | c0 c1 c2 20 5c 22 87 22 | #[nil "|... \"."|
|00000860| 20 5b 66 6f 72 6d 61 74 | 20 22 43 6f 6e 74 65 6e | [format| "Conten|
|00000870| 74 2d 54 79 70 65 3a 20 | 74 65 78 74 2f 65 6e 72 |t-Type: |text/enr|
|00000880| 69 63 68 65 64 5c 6e 54 | 65 78 74 2d 57 69 64 74 |iched\nT|ext-Widt|
|00000890| 68 3a 20 25 64 5c 6e 5c | 6e 22 20 65 6e 72 69 63 |h: %d\n\|n" enric|
|000008a0| 68 65 64 2d 74 65 78 74 | 2d 77 69 64 74 68 5d 20 |hed-text|-width] |
|000008b0| 33 5d 20 28 23 24 20 2e | 20 31 39 30 30 29 29 0a |3] (#$ .| 1900)).|
|000008c0| 23 40 34 36 20 47 65 6e | 65 72 61 6c 20 66 6f 72 |#@46 Gen|eral for|
|000008d0| 6d 61 74 20 6f 66 20 65 | 6e 72 69 63 68 65 64 2d |mat of e|nriched-|
|000008e0| 74 65 78 74 20 61 6e 6e | 6f 74 61 74 69 6f 6e 73 |text ann|otations|
|000008f0| 2e 1f 0a 28 64 65 66 63 | 6f 6e 73 74 20 65 6e 72 |...(defc|onst enr|
|00000900| 69 63 68 65 64 2d 61 6e | 6e 6f 74 61 74 69 6f 6e |iched-an|notation|
|00000910| 2d 66 6f 72 6d 61 74 20 | 22 3c 25 73 25 73 3e 22 |-format |"<%s%s>"|
|00000920| 20 28 23 24 20 2e 20 32 | 32 34 35 29 29 0a 23 40 | (#$ . 2|245)).#@|
|00000930| 35 36 20 52 65 67 75 6c | 61 72 20 65 78 70 72 65 |56 Regul|ar expre|
|00000940| 73 73 69 6f 6e 20 6d 61 | 74 63 68 69 6e 67 20 65 |ssion ma|tching e|
|00000950| 6e 72 69 63 68 65 64 2d | 74 65 78 74 20 61 6e 6e |nriched-|text ann|
|00000960| 6f 74 61 74 69 6f 6e 73 | 2e 1f 0a 28 64 65 66 63 |otations|...(defc|
|00000970| 6f 6e 73 74 20 65 6e 72 | 69 63 68 65 64 2d 61 6e |onst enr|iched-an|
|00000980| 6e 6f 74 61 74 69 6f 6e | 2d 72 65 67 65 78 70 20 |notation|-regexp |
|00000990| 22 3c 5c 5c 28 2f 5c 5c | 29 3f 5c 5c 28 5b 2d 41 |"<\\(/\\|)?\\([-A|
|000009a0| 2d 7a 61 2d 7a 30 2d 39 | 5d 2b 5c 5c 29 3e 22 20 |-za-z0-9|]+\\)>" |
|000009b0| 28 23 24 20 2e 20 32 33 | 35 35 29 29 0a 23 40 31 |(#$ . 23|55)).#@1|
|000009c0| 34 39 20 4c 69 73 74 20 | 6f 66 20 64 65 66 69 6e |49 List |of defin|
|000009d0| 69 74 69 6f 6e 73 20 6f | 66 20 74 65 78 74 2f 65 |itions o|f text/e|
|000009e0| 6e 72 69 63 68 65 64 20 | 61 6e 6e 6f 74 61 74 69 |nriched |annotati|
|000009f0| 6f 6e 73 2e 0a 53 65 65 | 20 60 66 6f 72 6d 61 74 |ons..See| `format|
|00000a00| 2d 61 6e 6e 6f 74 61 74 | 65 2d 72 65 67 69 6f 6e |-annotat|e-region|
|00000a10| 27 20 61 6e 64 20 60 66 | 6f 72 6d 61 74 2d 64 65 |' and `f|ormat-de|
|00000a20| 61 6e 6e 6f 74 61 74 65 | 2d 72 65 67 69 6f 6e 27 |annotate|-region'|
|00000a30| 20 66 6f 72 20 74 68 65 | 20 64 65 66 69 6e 69 74 | for the| definit|
|00000a40| 69 6f 6e 0a 6f 66 20 74 | 68 69 73 20 73 74 72 75 |ion.of t|his stru|
|00000a50| 63 74 75 72 65 2e 1f 0a | 28 64 65 66 63 6f 6e 73 |cture...|(defcons|
|00000a60| 74 20 65 6e 72 69 63 68 | 65 64 2d 74 72 61 6e 73 |t enrich|ed-trans|
|00000a70| 6c 61 74 69 6f 6e 73 20 | 28 71 75 6f 74 65 20 28 |lations |(quote (|
|00000a80| 28 66 61 63 65 20 28 62 | 6f 6c 64 2d 69 74 61 6c |(face (b|old-ital|
|00000a90| 69 63 20 22 62 6f 6c 64 | 22 20 22 69 74 61 6c 69 |ic "bold|" "itali|
|00000aa0| 63 22 29 20 28 62 6f 6c | 64 20 22 62 6f 6c 64 22 |c") (bol|d "bold"|
|00000ab0| 29 20 28 69 74 61 6c 69 | 63 20 22 69 74 61 6c 69 |) (itali|c "itali|
|00000ac0| 63 22 29 20 28 75 6e 64 | 65 72 6c 69 6e 65 20 22 |c") (und|erline "|
|00000ad0| 75 6e 64 65 72 6c 69 6e | 65 22 29 20 28 66 69 78 |underlin|e") (fix|
|00000ae0| 65 64 20 22 66 69 78 65 | 64 22 29 20 28 65 78 63 |ed "fixe|d") (exc|
|00000af0| 65 72 70 74 20 22 65 78 | 63 65 72 70 74 22 29 20 |erpt "ex|cerpt") |
|00000b00| 28 64 65 66 61 75 6c 74 | 29 20 28 6e 69 6c 20 65 |(default|) (nil e|
|00000b10| 6e 72 69 63 68 65 64 2d | 65 6e 63 6f 64 65 2d 6f |nriched-|encode-o|
|00000b20| 74 68 65 72 2d 66 61 63 | 65 29 29 20 28 6c 65 66 |ther-fac|e)) (lef|
|00000b30| 74 2d 6d 61 72 67 69 6e | 20 28 34 20 22 69 6e 64 |t-margin| (4 "ind|
|00000b40| 65 6e 74 22 29 29 20 28 | 72 69 67 68 74 2d 6d 61 |ent")) (|right-ma|
|00000b50| 72 67 69 6e 20 28 34 20 | 22 69 6e 64 65 6e 74 72 |rgin (4 |"indentr|
|00000b60| 69 67 68 74 22 29 29 20 | 28 6a 75 73 74 69 66 69 |ight")) |(justifi|
|00000b70| 63 61 74 69 6f 6e 20 28 | 6e 6f 6e 65 20 22 6e 6f |cation (|none "no|
|00000b80| 66 69 6c 6c 22 29 20 28 | 72 69 67 68 74 20 22 66 |fill") (|right "f|
|00000b90| 6c 75 73 68 72 69 67 68 | 74 22 29 20 28 6c 65 66 |lushrigh|t") (lef|
|00000ba0| 74 20 22 66 6c 75 73 68 | 6c 65 66 74 22 29 20 28 |t "flush|left") (|
|00000bb0| 66 75 6c 6c 20 22 66 6c | 75 73 68 62 6f 74 68 22 |full "fl|ushboth"|
|00000bc0| 29 20 28 63 65 6e 74 65 | 72 20 22 63 65 6e 74 65 |) (cente|r "cente|
|00000bd0| 72 22 29 29 20 28 50 41 | 52 41 4d 45 54 45 52 20 |r")) (PA|RAMETER |
|00000be0| 28 74 20 22 70 61 72 61 | 6d 22 29 29 20 28 46 55 |(t "para|m")) (FU|
|00000bf0| 4e 43 54 49 4f 4e 20 28 | 65 6e 72 69 63 68 65 64 |NCTION (|enriched|
|00000c00| 2d 64 65 63 6f 64 65 2d | 66 6f 72 65 67 72 6f 75 |-decode-|foregrou|
|00000c10| 6e 64 20 22 78 2d 63 6f | 6c 6f 72 22 29 20 28 65 |nd "x-co|lor") (e|
|00000c20| 6e 72 69 63 68 65 64 2d | 64 65 63 6f 64 65 2d 62 |nriched-|decode-b|
|00000c30| 61 63 6b 67 72 6f 75 6e | 64 20 22 78 2d 62 67 2d |ackgroun|d "x-bg-|
|00000c40| 63 6f 6c 6f 72 22 29 29 | 20 28 72 65 61 64 2d 6f |color"))| (read-o|
|00000c50| 6e 6c 79 20 28 74 20 22 | 78 2d 72 65 61 64 2d 6f |nly (t "|x-read-o|
|00000c60| 6e 6c 79 22 29 29 20 28 | 75 6e 6b 6e 6f 77 6e 20 |nly")) (|unknown |
|00000c70| 28 6e 69 6c 20 66 6f 72 | 6d 61 74 2d 61 6e 6e 6f |(nil for|mat-anno|
|00000c80| 74 61 74 65 2d 76 61 6c | 75 65 29 29 29 29 20 28 |tate-val|ue)))) (|
|00000c90| 23 24 20 2e 20 32 34 39 | 39 29 29 0a 23 40 31 37 |#$ . 249|9)).#@17|
|00000ca0| 36 20 50 72 6f 70 65 72 | 74 69 65 73 20 74 68 61 |6 Proper|ties tha|
|00000cb0| 74 20 61 72 65 20 4f 4b | 20 74 6f 20 69 67 6e 6f |t are OK| to igno|
|00000cc0| 72 65 20 77 68 65 6e 20 | 73 61 76 69 6e 67 20 74 |re when |saving t|
|00000cd0| 65 78 74 2f 65 6e 72 69 | 63 68 65 64 20 66 69 6c |ext/enri|ched fil|
|00000ce0| 65 73 2e 0a 41 6e 79 20 | 70 72 6f 70 65 72 74 79 |es..Any |property|
|00000cf0| 20 74 68 61 74 20 69 73 | 20 6e 65 69 74 68 65 72 | that is| neither|
|00000d00| 20 6f 6e 20 74 68 69 73 | 20 6c 69 73 74 20 6e 6f | on this| list no|
|00000d10| 72 20 64 65 61 6c 74 20 | 77 69 74 68 20 62 79 0a |r dealt |with by.|
|00000d20| 60 65 6e 72 69 63 68 65 | 64 2d 74 72 61 6e 73 6c |`enriche|d-transl|
|00000d30| 61 74 69 6f 6e 73 27 20 | 77 69 6c 6c 20 67 65 6e |ations' |will gen|
|00000d40| 65 72 61 74 65 20 61 20 | 77 61 72 6e 69 6e 67 2e |erate a |warning.|
|00000d50| 1f 0a 28 64 65 66 63 6f | 6e 73 74 20 65 6e 72 69 |..(defco|nst enri|
|00000d60| 63 68 65 64 2d 69 67 6e | 6f 72 65 20 28 71 75 6f |ched-ign|ore (quo|
|00000d70| 74 65 20 28 66 72 6f 6e | 74 2d 73 74 69 63 6b 79 |te (fron|t-sticky|
|00000d80| 20 72 65 61 72 2d 6e 6f | 6e 73 74 69 63 6b 79 20 | rear-no|nsticky |
|00000d90| 68 61 72 64 29 29 20 28 | 23 24 20 2e 20 33 32 33 |hard)) (|#$ . 323|
|00000da0| 34 29 29 0a 23 40 33 34 | 20 54 72 75 65 20 69 66 |4)).#@34| True if|
|00000db0| 20 45 6e 72 69 63 68 65 | 64 20 6d 6f 64 65 20 69 | Enriche|d mode i|
|00000dc0| 73 20 69 6e 20 75 73 65 | 2e 1f 0a 28 64 65 66 76 |s in use|...(defv|
|00000dd0| 61 72 20 65 6e 72 69 63 | 68 65 64 2d 6d 6f 64 65 |ar enric|hed-mode|
|00000de0| 20 6e 69 6c 20 28 23 24 | 20 2e 20 33 34 39 37 29 | nil (#$| . 3497)|
|00000df0| 29 0a 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 c1 |).(byte-|code "..|
|00000e00| 21 88 c1 5c 6e 9e 84 0e | 00 c3 5c 6e 42 12 c0 87 |!..\n...|..\nB...|
|00000e10| 22 20 5b 6d 61 6b 65 2d | 76 61 72 69 61 62 6c 65 |" [make-|variable|
|00000e20| 2d 62 75 66 66 65 72 2d | 6c 6f 63 61 6c 20 65 6e |-buffer-|local en|
|00000e30| 72 69 63 68 65 64 2d 6d | 6f 64 65 20 6d 69 6e 6f |riched-m|ode mino|
|00000e40| 72 2d 6d 6f 64 65 2d 61 | 6c 69 73 74 20 28 65 6e |r-mode-a|list (en|
|00000e50| 72 69 63 68 65 64 2d 6d | 6f 64 65 20 22 20 45 6e |riched-m|ode " En|
|00000e60| 72 69 63 68 65 64 22 29 | 5d 20 32 29 0a 23 40 32 |riched")|] 2).#@2|
|00000e70| 35 37 20 46 75 6e 63 74 | 69 6f 6e 73 20 74 6f 20 |57 Funct|ions to |
|00000e80| 72 75 6e 20 77 68 65 6e | 20 65 6e 74 65 72 69 6e |run when| enterin|
|00000e90| 67 20 45 6e 72 69 63 68 | 65 64 20 6d 6f 64 65 2e |g Enrich|ed mode.|
|00000ea0| 0a 49 66 20 79 6f 75 20 | 73 65 74 20 76 61 72 69 |.If you |set vari|
|00000eb0| 61 62 6c 65 73 20 69 6e | 20 74 68 69 73 20 68 6f |ables in| this ho|
|00000ec0| 6f 6b 2c 20 79 6f 75 20 | 73 68 6f 75 6c 64 20 61 |ok, you |should a|
|00000ed0| 72 72 61 6e 67 65 20 66 | 6f 72 20 74 68 65 6d 20 |rrange f|or them |
|00000ee0| 74 6f 20 62 65 20 72 65 | 73 74 6f 72 65 64 0a 74 |to be re|stored.t|
|00000ef0| 6f 20 74 68 65 69 72 20 | 6f 6c 64 20 76 61 6c 75 |o their |old valu|
|00000f00| 65 73 20 69 66 20 79 6f | 75 20 6c 65 61 76 65 20 |es if yo|u leave |
|00000f10| 45 6e 72 69 63 68 65 64 | 20 6d 6f 64 65 2e 20 20 |Enriched| mode.  |
|00000f20| 4f 6e 65 20 77 61 79 20 | 74 6f 20 64 6f 20 74 68 |One way |to do th|
|00000f30| 69 73 20 69 73 20 74 6f | 20 61 64 64 0a 74 68 65 |is is to| add.the|
|00000f40| 6d 20 61 6e 64 20 74 68 | 65 69 72 20 6f 6c 64 20 |m and th|eir old |
|00000f50| 76 61 6c 75 65 73 20 74 | 6f 20 60 65 6e 72 69 63 |values t|o `enric|
|00000f60| 68 65 64 2d 6f 6c 64 2d | 62 69 6e 64 69 6e 67 73 |hed-old-|bindings|
|00000f70| 27 2e 1f 0a 28 64 65 66 | 76 61 72 20 65 6e 72 69 |'...(def|var enri|
|00000f80| 63 68 65 64 2d 6d 6f 64 | 65 2d 68 6f 6f 6b 20 6e |ched-mod|e-hook n|
|00000f90| 69 6c 20 28 23 24 20 2e | 20 33 36 39 39 29 29 0a |il (#$ .| 3699)).|
|00000fa0| 23 40 31 31 31 20 53 74 | 6f 72 65 20 6f 6c 64 20 |#@111 St|ore old |
|00000fb0| 76 61 72 69 61 62 6c 65 | 20 76 61 6c 75 65 73 20 |variable| values |
|00000fc0| 74 68 61 74 20 77 65 20 | 63 68 61 6e 67 65 20 77 |that we |change w|
|00000fd0| 68 65 6e 20 65 6e 74 65 | 72 69 6e 67 20 6d 6f 64 |hen ente|ring mod|
|00000fe0| 65 2e 0a 54 68 65 20 76 | 61 6c 75 65 20 69 73 20 |e..The v|alue is |
|00000ff0| 61 20 6c 69 73 74 20 6f | 66 20 28 56 41 52 20 56 |a list o|f (VAR V|
|00001000| 41 4c 55 45 20 56 41 52 | 20 56 41 4c 55 45 2e 2e |ALUE VAR| VALUE..|
|00001010| 2e 29 2e 1f 0a 28 64 65 | 66 76 61 72 20 65 6e 72 |.)...(de|fvar enr|
|00001020| 69 63 68 65 64 2d 6f 6c | 64 2d 62 69 6e 64 69 6e |iched-ol|d-bindin|
|00001030| 67 73 20 6e 69 6c 20 28 | 23 24 20 2e 20 34 30 30 |gs nil (|#$ . 400|
|00001040| 36 29 29 0a 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |6)).(byt|e-code "|
|00001050| c0 c1 21 88 c2 c3 21 84 | 5c 66 00 c4 13 c3 0d 42 |..!...!.|\f.....B|
|00001060| 15 c0 c3 21 87 22 20 5b | 6d 61 6b 65 2d 76 61 72 |...!." [|make-var|
|00001070| 69 61 62 6c 65 2d 62 75 | 66 66 65 72 2d 6c 6f 63 |iable-bu|ffer-loc|
|00001080| 61 6c 20 65 6e 72 69 63 | 68 65 64 2d 6f 6c 64 2d |al enric|hed-old-|
|00001090| 62 69 6e 64 69 6e 67 73 | 20 62 6f 75 6e 64 70 20 |bindings| boundp |
|000010a0| 65 6e 72 69 63 68 65 64 | 2d 74 65 78 74 2d 77 69 |enriched|-text-wi|
|000010b0| 64 74 68 20 6e 69 6c 20 | 63 75 72 72 65 6e 74 2d |dth nil |current-|
|000010c0| 6c 6f 61 64 2d 6c 69 73 | 74 5d 20 32 29 0a 23 40 |load-lis|t] 2).#@|
|000010d0| 33 36 30 20 4d 69 6e 6f | 72 20 6d 6f 64 65 20 66 |360 Mino|r mode f|
|000010e0| 6f 72 20 65 64 69 74 69 | 6e 67 20 74 65 78 74 2f |or editi|ng text/|
|000010f0| 65 6e 72 69 63 68 65 64 | 20 66 69 6c 65 73 2e 0a |enriched| files..|
|00001100| 54 68 65 73 65 20 61 72 | 65 20 66 69 6c 65 73 20 |These ar|e files |
|00001110| 77 69 74 68 20 65 6d 62 | 65 64 64 65 64 20 66 6f |with emb|edded fo|
|00001120| 72 6d 61 74 74 69 6e 67 | 20 69 6e 66 6f 72 6d 61 |rmatting| informa|
|00001130| 74 69 6f 6e 20 69 6e 20 | 74 68 65 20 4d 49 4d 45 |tion in |the MIME|
|00001140| 20 73 74 61 6e 64 61 72 | 64 0a 74 65 78 74 2f 65 | standar|d.text/e|
|00001150| 6e 72 69 63 68 65 64 20 | 66 6f 72 6d 61 74 2e 0a |nriched |format..|
|00001160| 54 75 72 6e 69 6e 67 20 | 74 68 65 20 6d 6f 64 65 |Turning |the mode|
|00001170| 20 6f 6e 20 72 75 6e 73 | 20 60 65 6e 72 69 63 68 | on runs| `enrich|
|00001180| 65 64 2d 6d 6f 64 65 2d | 68 6f 6f 6b 27 2e 0a 0a |ed-mode-|hook'...|
|00001190| 4d 6f 72 65 20 69 6e 66 | 6f 72 6d 61 74 69 6f 6e |More inf|ormation|
|000011a0| 20 61 62 6f 75 74 20 45 | 6e 72 69 63 68 65 64 20 | about E|nriched |
|000011b0| 6d 6f 64 65 20 69 73 20 | 61 76 61 69 6c 61 62 6c |mode is |availabl|
|000011c0| 65 20 69 6e 20 74 68 65 | 20 66 69 6c 65 20 0a 65 |e in the| file .e|
|000011d0| 74 63 2f 65 6e 72 69 63 | 68 65 64 2e 64 6f 63 20 |tc/enric|hed.doc |
|000011e0| 20 69 6e 20 74 68 65 20 | 45 6d 61 63 73 20 64 69 | in the |Emacs di|
|000011f0| 73 74 72 69 62 75 74 69 | 6f 6e 20 64 69 72 65 63 |stributi|on direc|
|00001200| 74 6f 72 79 2e 0a 0a 43 | 6f 6d 6d 61 6e 64 73 3a |tory...C|ommands:|
|00001210| 0a 0a 5c 3c 65 6e 72 69 | 63 68 65 64 2d 6d 6f 64 |..\<enri|ched-mod|
|00001220| 65 2d 6d 61 70 3e 5c 7b | 65 6e 72 69 63 68 65 64 |e-map>\{|enriched|
|00001230| 2d 6d 6f 64 65 2d 6d 61 | 70 7d 1f 0a 28 64 65 66 |-mode-ma|p}..(def|
|00001240| 61 6c 69 61 73 20 27 65 | 6e 72 69 63 68 65 64 2d |alias 'e|nriched-|
|00001250| 6d 6f 64 65 20 23 5b 28 | 26 6f 70 74 69 6f 6e 61 |mode #[(|&optiona|
|00001260| 6c 20 61 72 67 29 20 22 | c0 20 19 c2 0b 21 c4 58 |l arg) "|. ...!.X|
|00001270| 84 13 00 0d 83 34 00 0b | 84 34 00 c6 15 c7 c8 0e |.....4..|.4......|
|00001280| 09 5c 22 16 09 0e 5c 6e | 83 aa 00 0e 5c 6e 40 0e |.\"...\n|....\n@.|
|00001290| 5c 6e 41 40 4c 88 0e 5c | 6e 41 41 89 16 5c 6e 82 |\nA@L..\|nAA..\n.|
|000012a0| 1e 00 0d 84 aa 00 cb 15 | c8 0e 09 3e 84 47 00 c8 |........|...>.G..|
|000012b0| 0e 09 42 16 09 cc 0e 5c | 66 cd 0e 0d ce 0e 0e cf |..B....\|f.......|
|000012c0| 0e 0f af 08 16 5c 6e d0 | cd 21 88 d0 ce 21 88 d0 |.....\n.|.!...!..|
|000012d0| cf 21 88 d1 16 0d 0e 12 | 16 5c 66 cb 16 0e d3 0e |.!......|.\f.....|
|000012e0| 0f d4 5c 22 0e 15 1e 16 | 1e 17 0e 16 83 97 00 0e |..\"....|........|
|000012f0| 16 40 0e 17 3e 84 8e 00 | 0e 16 40 0e 17 42 16 17 |.@..>...|..@..B..|
|00001300| 0e 16 41 89 16 16 84 7d | 00 0e 17 83 a5 00 d8 0e |..A....}|........|
|00001310| 0f d4 0e 17 23 16 0f 2a | d9 da 21 88 db 09 21 88 |....#..*|..!...!.|
|00001320| dc 20 29 87 22 20 5b 62 | 75 66 66 65 72 2d 6d 6f |. )." [b|uffer-mo|
|00001330| 64 69 66 69 65 64 2d 70 | 20 6d 6f 64 20 70 72 65 |dified-p| mod pre|
|00001340| 66 69 78 2d 6e 75 6d 65 | 72 69 63 2d 76 61 6c 75 |fix-nume|ric-valu|
|00001350| 65 20 61 72 67 20 30 20 | 65 6e 72 69 63 68 65 64 |e arg 0 |enriched|
|00001360| 2d 6d 6f 64 65 20 6e 69 | 6c 20 64 65 6c 71 20 74 |-mode ni|l delq t|
|00001370| 65 78 74 2f 65 6e 72 69 | 63 68 65 64 20 62 75 66 |ext/enri|ched buf|
|00001380| 66 65 72 2d 66 69 6c 65 | 2d 66 6f 72 6d 61 74 20 |fer-file|-format |
|00001390| 65 6e 72 69 63 68 65 64 | 2d 6f 6c 64 2d 62 69 6e |enriched|-old-bin|
|000013a0| 64 69 6e 67 73 20 74 20 | 62 75 66 66 65 72 2d 64 |dings t |buffer-d|
|000013b0| 69 73 70 6c 61 79 2d 74 | 61 62 6c 65 20 69 6e 64 |isplay-t|able ind|
|000013c0| 65 6e 74 2d 6c 69 6e 65 | 2d 66 75 6e 63 74 69 6f |ent-line|-functio|
|000013d0| 6e 20 75 73 65 2d 68 61 | 72 64 2d 6e 65 77 6c 69 |n use-ha|rd-newli|
|000013e0| 6e 65 73 20 64 65 66 61 | 75 6c 74 2d 74 65 78 74 |nes defa|ult-text|
|000013f0| 2d 70 72 6f 70 65 72 74 | 69 65 73 20 6d 61 6b 65 |-propert|ies make|
|00001400| 2d 6c 6f 63 61 6c 2d 76 | 61 72 69 61 62 6c 65 20 |-local-v|ariable |
|00001410| 69 6e 64 65 6e 74 2d 74 | 6f 2d 6c 65 66 74 2d 6d |indent-t|o-left-m|
|00001420| 61 72 67 69 6e 20 65 6e | 72 69 63 68 65 64 2d 64 |argin en|riched-d|
|00001430| 69 73 70 6c 61 79 2d 74 | 61 62 6c 65 20 70 6c 69 |isplay-t|able pli|
|00001440| 73 74 2d 67 65 74 20 66 | 72 6f 6e 74 2d 73 74 69 |st-get f|ront-sti|
|00001450| 63 6b 79 20 65 6e 72 69 | 63 68 65 64 2d 70 61 72 |cky enri|ched-par|
|00001460| 2d 70 72 6f 70 73 20 70 | 20 73 74 69 63 6b 79 20 |-props p| sticky |
|00001470| 70 6c 69 73 74 2d 70 75 | 74 20 72 75 6e 2d 68 6f |plist-pu|t run-ho|
|00001480| 6f 6b 73 20 65 6e 72 69 | 63 68 65 64 2d 6d 6f 64 |oks enri|ched-mod|
|00001490| 65 2d 68 6f 6f 6b 20 73 | 65 74 2d 62 75 66 66 65 |e-hook s|et-buffe|
|000014a0| 72 2d 6d 6f 64 69 66 69 | 65 64 2d 70 20 66 6f 72 |r-modifi|ed-p for|
|000014b0| 63 65 2d 6d 6f 64 65 2d | 6c 69 6e 65 2d 75 70 64 |ce-mode-|line-upd|
|000014c0| 61 74 65 5d 20 39 20 28 | 23 24 20 2e 20 34 33 30 |ate] 9 (|#$ . 430|
|000014d0| 38 29 20 22 50 22 5d 29 | 0a 23 40 32 37 20 4b 65 |8) "P"])|.#@27 Ke|
|000014e0| 79 6d 61 70 20 66 6f 72 | 20 45 6e 72 69 63 68 65 |ymap for| Enriche|
|000014f0| 64 20 6d 6f 64 65 2e 1f | 0a 28 64 65 66 76 61 72 |d mode..|.(defvar|
|00001500| 20 65 6e 72 69 63 68 65 | 64 2d 6d 6f 64 65 2d 6d | enriche|d-mode-m|
|00001510| 61 70 20 6e 69 6c 20 28 | 23 24 20 2e 20 35 33 34 |ap nil (|#$ . 534|
|00001520| 32 29 29 0a 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |2)).(byt|e-code "|
|00001530| 08 84 0b 00 c0 c1 20 89 | 10 4d 88 c2 0b 9e 84 17 |...... .|.M......|
|00001540| 00 c2 08 42 0b 42 13 c4 | 08 c5 c6 23 88 c4 08 c7 |...B.B..|...#....|
|00001550| c8 23 88 c4 08 c9 c8 23 | 88 c4 08 ca cb 23 88 c4 |.#.....#|.....#..|
|00001560| 08 cc cd 23 88 c4 08 ce | cf 23 88 c4 08 d0 d1 23 |...#....|.#.....#|
|00001570| 88 c4 08 d2 d3 23 87 22 | 20 5b 65 6e 72 69 63 68 |.....#."| [enrich|
|00001580| 65 64 2d 6d 6f 64 65 2d | 6d 61 70 20 6d 61 6b 65 |ed-mode-|map make|
|00001590| 2d 73 70 61 72 73 65 2d | 6b 65 79 6d 61 70 20 65 |-sparse-|keymap e|
|000015a0| 6e 72 69 63 68 65 64 2d | 6d 6f 64 65 20 6d 69 6e |nriched-|mode min|
|000015b0| 6f 72 2d 6d 6f 64 65 2d | 6d 61 70 2d 61 6c 69 73 |or-mode-|map-alis|
|000015c0| 74 20 64 65 66 69 6e 65 | 2d 6b 65 79 20 22 01 22 |t define|-key "."|
|000015d0| 20 62 65 67 69 6e 6e 69 | 6e 67 2d 6f 66 2d 6c 69 | beginni|ng-of-li|
|000015e0| 6e 65 2d 74 65 78 74 20 | 22 0d 22 20 72 65 69 6e |ne-text |"." rein|
|000015f0| 64 65 6e 74 2d 74 68 65 | 6e 2d 6e 65 77 6c 69 6e |dent-the|n-newlin|
|00001600| 65 2d 61 6e 64 2d 69 6e | 64 65 6e 74 20 22 5c 6e |e-and-in|dent "\n|
|00001610| 22 20 22 ea 22 20 66 61 | 63 65 6d 65 6e 75 2d 6a |" "." fa|cemenu-j|
|00001620| 75 73 74 69 66 69 63 61 | 74 69 6f 6e 2d 6d 65 6e |ustifica|tion-men|
|00001630| 75 20 22 d3 22 20 73 65 | 74 2d 6a 75 73 74 69 66 |u "." se|t-justif|
|00001640| 69 63 61 74 69 6f 6e 2d | 63 65 6e 74 65 72 20 22 |ication-|center "|
|00001650| 18 09 22 20 69 6e 63 72 | 65 61 73 65 2d 6c 65 66 |.." incr|ease-lef|
|00001660| 74 2d 6d 61 72 67 69 6e | 20 22 03 5c 66 22 20 73 |t-margin| ".\f" s|
|00001670| 65 74 2d 6c 65 66 74 2d | 6d 61 72 67 69 6e 20 22 |et-left-|margin "|
|00001680| 03 12 22 20 73 65 74 2d | 72 69 67 68 74 2d 6d 61 |.." set-|right-ma|
|00001690| 72 67 69 6e 5d 20 34 29 | 0a 23 40 33 37 38 20 41 |rgin] 4)|.#@378 A|
|000016a0| 70 70 6c 79 20 61 20 66 | 75 6e 63 74 69 6f 6e 20 |pply a f|unction |
|000016b0| 74 6f 20 72 65 67 69 6f | 6e 73 20 6f 66 20 74 68 |to regio|ns of th|
|000016c0| 65 20 62 75 66 66 65 72 | 20 62 61 73 65 64 20 6f |e buffer| based o|
|000016d0| 6e 20 61 20 74 65 78 74 | 20 70 72 6f 70 65 72 74 |n a text| propert|
|000016e0| 79 2e 0a 46 6f 72 20 65 | 61 63 68 20 63 6f 6e 74 |y..For e|ach cont|
|000016f0| 69 67 75 6f 75 73 20 72 | 65 67 69 6f 6e 20 6f 66 |iguous r|egion of|
|00001700| 20 74 68 65 20 62 75 66 | 66 65 72 20 66 6f 72 20 | the buf|fer for |
|00001710| 77 68 69 63 68 20 74 68 | 65 20 76 61 6c 75 65 20 |which th|e value |
|00001720| 6f 66 20 50 52 4f 50 45 | 52 54 59 20 69 73 0a 65 |of PROPE|RTY is.e|
|00001730| 71 2c 20 74 68 65 20 46 | 55 4e 43 54 49 4f 4e 20 |q, the F|UNCTION |
|00001740| 77 69 6c 6c 20 62 65 20 | 63 61 6c 6c 65 64 2e 20 |will be |called. |
|00001750| 20 4f 70 74 69 6f 6e 61 | 6c 20 61 72 67 75 6d 65 | Optiona|l argume|
|00001760| 6e 74 73 20 46 52 4f 4d | 20 61 6e 64 20 54 4f 20 |nts FROM| and TO |
|00001770| 73 70 65 63 69 66 79 20 | 74 68 65 0a 72 65 67 69 |specify |the.regi|
|00001780| 6f 6e 20 6f 76 65 72 20 | 77 68 69 63 68 20 74 6f |on over |which to|
|00001790| 20 73 63 61 6e 2e 0a 0a | 54 68 65 20 73 70 65 63 | scan...|The spec|
|000017a0| 69 66 69 65 64 20 66 75 | 6e 63 74 69 6f 6e 20 72 |ified fu|nction r|
|000017b0| 65 63 65 69 76 65 73 20 | 74 68 72 65 65 20 61 72 |eceives |three ar|
|000017c0| 67 75 6d 65 6e 74 73 3a | 20 74 68 65 20 56 41 4c |guments:| the VAL|
|000017d0| 55 45 20 6f 66 20 74 68 | 65 20 70 72 6f 70 65 72 |UE of th|e proper|
|000017e0| 74 79 20 69 6e 0a 74 68 | 65 20 72 65 67 69 6f 6e |ty in.th|e region|
|000017f0| 2c 20 61 6e 64 20 74 68 | 65 20 53 54 41 52 54 20 |, and th|e START |
|00001800| 61 6e 64 20 45 4e 44 20 | 6f 66 20 65 61 63 68 20 |and END |of each |
|00001810| 72 65 67 69 6f 6e 2e 1f | 0a 28 64 65 66 61 6c 69 |region..|.(defali|
|00001820| 61 73 20 27 65 6e 72 69 | 63 68 65 64 2d 6d 61 70 |as 'enri|ched-map|
|00001830| 2d 70 72 6f 70 65 72 74 | 79 2d 72 65 67 69 6f 6e |-propert|y-region|
|00001840| 73 20 23 5b 28 70 72 6f | 70 20 66 75 6e 63 20 26 |s #[(pro|p func &|
|00001850| 6f 70 74 69 6f 6e 61 6c | 20 66 72 6f 6d 20 74 6f |optional| from to|
|00001860| 29 20 22 8a 8c 08 83 5c | 6e 00 65 08 7d 88 09 86 |) "....\|n.e.}...|
|00001870| 0f 00 65 62 88 60 c2 c3 | 20 c4 60 0d 5c 22 1e 06 |..eb.`..| .`.\"..|
|00001880| 1e 07 1e 08 1e 09 ca 0e | 09 64 0d 0e 06 24 89 16 |........|.d...$..|
|00001890| 08 83 52 00 0e 07 0e 08 | c2 93 88 0e 0b 0e 06 0e |..R.....|........|
|000018a0| 09 cc 0e 07 21 23 88 cc | 0e 07 21 16 09 c4 0e 07 |....!#..|..!.....|
|000018b0| 0d 5c 22 16 06 82 21 00 | 0e 09 64 57 85 61 00 0e |.\"...!.|..dW.a..|
|000018c0| 0b 0e 06 0e 09 64 23 2e | 06 87 22 20 5b 74 6f 20 |.....d#.|.." [to |
|000018d0| 66 72 6f 6d 20 6e 69 6c | 20 6d 61 6b 65 2d 6d 61 |from nil| make-ma|
|000018e0| 72 6b 65 72 20 67 65 74 | 2d 74 65 78 74 2d 70 72 |rker get|-text-pr|
|000018f0| 6f 70 65 72 74 79 20 70 | 72 6f 70 20 76 61 6c 20 |operty p|rop val |
|00001900| 6d 61 72 6b 65 72 20 65 | 6e 64 20 62 65 67 69 6e |marker e|nd begin|
|00001910| 20 74 65 78 74 2d 70 72 | 6f 70 65 72 74 79 2d 6e | text-pr|operty-n|
|00001920| 6f 74 2d 61 6c 6c 20 66 | 75 6e 63 20 6d 61 72 6b |ot-all f|unc mark|
|00001930| 65 72 2d 70 6f 73 69 74 | 69 6f 6e 5d 20 36 20 28 |er-posit|ion] 6 (|
|00001940| 23 24 20 2e 20 35 37 39 | 31 29 5d 29 0a 28 70 75 |#$ . 579|1)]).(pu|
|00001950| 74 20 28 71 75 6f 74 65 | 20 65 6e 72 69 63 68 65 |t (quote| enriche|
|00001960| 64 2d 6d 61 70 2d 70 72 | 6f 70 65 72 74 79 2d 72 |d-map-pr|operty-r|
|00001970| 65 67 69 6f 6e 73 29 20 | 28 71 75 6f 74 65 20 6c |egions) |(quote l|
|00001980| 69 73 70 2d 69 6e 64 65 | 6e 74 2d 68 6f 6f 6b 29 |isp-inde|nt-hook)|
|00001990| 20 31 29 0a 23 40 34 35 | 20 49 6e 64 65 6e 74 20 | 1).#@45| Indent |
|000019a0| 61 6e 64 20 6a 75 73 74 | 69 66 79 20 65 61 63 68 |and just|ify each|
|000019b0| 20 6c 69 6e 65 20 69 6e | 20 74 68 65 20 72 65 67 | line in| the reg|
|000019c0| 69 6f 6e 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ion...(d|efalias |
|000019d0| 27 65 6e 72 69 63 68 65 | 64 2d 69 6e 73 65 72 74 |'enriche|d-insert|
|000019e0| 2d 69 6e 64 65 6e 74 61 | 74 69 6f 6e 20 23 5b 28 |-indenta|tion #[(|
|000019f0| 26 6f 70 74 69 6f 6e 61 | 6c 20 66 72 6f 6d 20 74 |&optiona|l from t|
|00001a00| 6f 29 20 22 8a 8c 08 83 | 5c 6e 00 65 08 7d 88 09 |o) "....|\n.e.}..|
|00001a10| 86 0f 00 65 62 88 6e 84 | 18 00 c2 79 88 6d 3f 85 |...eb.n.|...y.m?.|
|00001a20| 31 00 6c 84 2b 00 c3 20 | 6a 88 c4 c5 c6 c5 23 88 |1.l.+.. |j.....#.|
|00001a30| c2 79 88 82 18 00 2a 87 | 22 20 5b 74 6f 20 66 72 |.y....*.|" [to fr|
|00001a40| 6f 6d 20 31 20 63 75 72 | 72 65 6e 74 2d 6c 65 66 |om 1 cur|rent-lef|
|00001a50| 74 2d 6d 61 72 67 69 6e | 20 6a 75 73 74 69 66 79 |t-margin| justify|
|00001a60| 2d 63 75 72 72 65 6e 74 | 2d 6c 69 6e 65 20 74 20 |-current|-line t |
|00001a70| 6e 69 6c 5d 20 34 20 28 | 23 24 20 2e 20 36 35 35 |nil] 4 (|#$ . 655|
|00001a80| 33 29 5d 29 0a 23 40 31 | 33 32 20 54 68 65 20 77 |3)]).#@1|32 The w|
|00001a90| 69 64 74 68 20 6f 66 20 | 75 6e 69 6e 64 65 6e 74 |idth of |unindent|
|00001aa0| 65 64 20 74 65 78 74 20 | 69 6e 20 74 68 69 73 20 |ed text |in this |
|00001ab0| 77 69 6e 64 6f 77 2c 20 | 69 6e 20 63 68 61 72 61 |window, |in chara|
|00001ac0| 63 74 65 72 73 2e 0a 54 | 68 69 73 20 69 73 20 74 |cters..T|his is t|
|00001ad0| 68 65 20 77 69 64 74 68 | 20 6f 66 20 74 68 65 20 |he width| of the |
|00001ae0| 77 69 6e 64 6f 77 20 6d | 69 6e 75 73 20 60 65 6e |window m|inus `en|
|00001af0| 72 69 63 68 65 64 2d 64 | 65 66 61 75 6c 74 2d 72 |riched-d|efault-r|
|00001b00| 69 67 68 74 2d 6d 61 72 | 67 69 6e 27 2e 1f 0a 28 |ight-mar|gin'...(|
|00001b10| 64 65 66 61 6c 69 61 73 | 20 27 65 6e 72 69 63 68 |defalias| 'enrich|
|00001b20| 65 64 2d 74 65 78 74 2d | 77 69 64 74 68 20 23 5b |ed-text-|width #[|
|00001b30| 6e 69 6c 20 22 08 86 17 | 00 c1 20 89 1a 0b 56 83 |nil "...|.. ...V.|
|00001b40| 13 00 5c 6e 0b 5a 82 14 | 00 5c 6e 89 10 29 87 22 |..\n.Z..|.\n..)."|
|00001b50| 20 5b 65 6e 72 69 63 68 | 65 64 2d 74 65 78 74 2d | [enrich|ed-text-|
|00001b60| 77 69 64 74 68 20 77 69 | 6e 64 6f 77 2d 77 69 64 |width wi|ndow-wid|
|00001b70| 74 68 20 77 77 20 65 6e | 72 69 63 68 65 64 2d 64 |th ww en|riched-d|
|00001b80| 65 66 61 75 6c 74 2d 72 | 69 67 68 74 2d 6d 61 72 |efault-r|ight-mar|
|00001b90| 67 69 6e 5d 20 33 20 28 | 23 24 20 2e 20 36 37 39 |gin] 3 (|#$ . 679|
|00001ba0| 35 29 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |5)]).(de|falias '|
|00001bb0| 65 6e 72 69 63 68 65 64 | 2d 65 6e 63 6f 64 65 20 |enriched|-encode |
|00001bc0| 23 5b 28 66 72 6f 6d 20 | 74 6f 29 20 22 08 83 08 |#[(from |to) "...|
|00001bd0| 00 c1 c2 21 88 8c 0b 5c | 66 7d 88 c5 20 88 c6 20 |...!...\|f}.. .. |
|00001be0| 88 0b 62 88 c7 c8 21 88 | c9 ca 0b 64 0e 0b cc 0e |..b...!.|...d....|
|00001bf0| 0d 25 21 88 0b 62 88 0e | 0e 3b 83 34 00 0e 0e 82 |.%!..b..|.;.4....|
|00001c00| 37 00 0e 0e 20 63 88 cf | d0 d1 60 d2 24 88 08 83 |7... c..|..`.$...|
|00001c10| 48 00 c1 d2 21 88 64 29 | 87 22 20 5b 65 6e 72 69 |H...!.d)|." [enri|
|00001c20| 63 68 65 64 2d 76 65 72 | 62 6f 73 65 20 6d 65 73 |ched-ver|bose mes|
|00001c30| 73 61 67 65 20 22 45 6e | 72 69 63 68 65 64 3a 20 |sage "En|riched: |
|00001c40| 65 6e 63 6f 64 69 6e 67 | 20 64 6f 63 75 6d 65 6e |encoding| documen|
|00001c50| 74 2e 2e 2e 22 20 66 72 | 6f 6d 20 74 6f 20 64 65 |t..." fr|om to de|
|00001c60| 6c 65 74 65 2d 74 6f 2d | 6c 65 66 74 2d 6d 61 72 |lete-to-|left-mar|
|00001c70| 67 69 6e 20 75 6e 6a 75 | 73 74 69 66 79 2d 72 65 |gin unju|stify-re|
|00001c80| 67 69 6f 6e 20 66 6f 72 | 6d 61 74 2d 72 65 70 6c |gion for|mat-repl|
|00001c90| 61 63 65 2d 73 74 72 69 | 6e 67 73 20 28 28 22 3c |ace-stri|ngs (("<|
|00001ca0| 22 20 2e 20 22 3c 3c 22 | 29 29 20 66 6f 72 6d 61 |" . "<<"|)) forma|
|00001cb0| 74 2d 69 6e 73 65 72 74 | 2d 61 6e 6e 6f 74 61 74 |t-insert|-annotat|
|00001cc0| 69 6f 6e 73 20 66 6f 72 | 6d 61 74 2d 61 6e 6e 6f |ions for|mat-anno|
|00001cd0| 74 61 74 65 2d 72 65 67 | 69 6f 6e 20 65 6e 72 69 |tate-reg|ion enri|
|00001ce0| 63 68 65 64 2d 74 72 61 | 6e 73 6c 61 74 69 6f 6e |ched-tra|nslation|
|00001cf0| 73 20 65 6e 72 69 63 68 | 65 64 2d 6d 61 6b 65 2d |s enrich|ed-make-|
|00001d00| 61 6e 6e 6f 74 61 74 69 | 6f 6e 20 65 6e 72 69 63 |annotati|on enric|
|00001d10| 68 65 64 2d 69 67 6e 6f | 72 65 20 65 6e 72 69 63 |hed-igno|re enric|
|00001d20| 68 65 64 2d 69 6e 69 74 | 69 61 6c 2d 61 6e 6e 6f |hed-init|ial-anno|
|00001d30| 74 61 74 69 6f 6e 20 65 | 6e 72 69 63 68 65 64 2d |tation e|nriched-|
|00001d40| 6d 61 70 2d 70 72 6f 70 | 65 72 74 79 2d 72 65 67 |map-prop|erty-reg|
|00001d50| 69 6f 6e 73 20 68 61 72 | 64 20 23 5b 28 76 20 62 |ions har|d #[(v b|
|00001d60| 20 65 29 20 22 08 85 10 | 00 09 66 c2 55 85 10 00 | e) "...|..f.U...|
|00001d70| 09 62 88 c3 63 87 22 20 | 5b 76 20 62 20 31 30 20 |.b..c." |[v b 10 |
|00001d80| 22 5c 6e 22 5d 20 32 5d | 20 6e 69 6c 5d 20 37 5d |"\n"] 2]| nil] 7]|
|00001d90| 29 0a 23 40 31 32 37 20 | 46 6f 72 6d 61 74 20 61 |).#@127 |Format a|
|00001da0| 6e 20 61 6e 6e 6f 74 61 | 74 69 6f 6e 20 63 61 6c |n annota|tion cal|
|00001db0| 6c 65 64 20 4e 41 4d 45 | 2e 0a 49 66 20 50 4f 53 |led NAME|..If POS|
|00001dc0| 49 54 49 56 45 20 69 73 | 20 6e 6f 6e 2d 6e 69 6c |ITIVE is| non-nil|
|00001dd0| 2c 20 74 68 69 73 20 69 | 73 20 74 68 65 20 6f 70 |, this i|s the op|
|00001de0| 65 6e 69 6e 67 20 61 6e | 6e 6f 74 61 74 69 6f 6e |ening an|notation|
|00001df0| 2c 20 69 66 20 6e 69 6c | 2c 20 74 68 69 73 20 69 |, if nil|, this i|
|00001e00| 73 20 74 68 65 0a 6d 61 | 74 63 68 69 6e 67 20 63 |s the.ma|tching c|
|00001e10| 6c 6f 73 65 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |lose...(|defalias|
|00001e20| 20 27 65 6e 72 69 63 68 | 65 64 2d 6d 61 6b 65 2d | 'enrich|ed-make-|
|00001e30| 61 6e 6e 6f 74 61 74 69 | 6f 6e 20 23 5b 28 6e 61 |annotati|on #[(na|
|00001e40| 6d 65 20 70 6f 73 69 74 | 69 76 65 29 20 22 08 3b |me posit|ive) ".;|
|00001e50| 83 13 00 c1 5c 6e 0b 83 | 0f 00 c4 82 10 00 c5 08 |....\n..|........|
|00001e60| 23 87 0b 83 2e 00 08 40 | 08 41 1e 06 1e 07 c1 5c |#......@|.A.....\|
|00001e70| 6e c4 0e 07 23 c8 c9 0e | 06 c4 23 50 2a 87 c1 5c |n...#...|..#P*..\|
|00001e80| 6e c5 08 40 23 87 22 20 | 5b 6e 61 6d 65 20 66 6f |n..@#." |[name fo|
|00001e90| 72 6d 61 74 20 65 6e 72 | 69 63 68 65 64 2d 61 6e |rmat enr|iched-an|
|00001ea0| 6e 6f 74 61 74 69 6f 6e | 2d 66 6f 72 6d 61 74 20 |notation|-format |
|00001eb0| 70 6f 73 69 74 69 76 65 | 20 22 22 20 22 2f 22 20 |positive| "" "/" |
|00001ec0| 70 61 72 61 6d 73 20 69 | 74 65 6d 20 6d 61 70 63 |params i|tem mapc|
|00001ed0| 6f 6e 63 61 74 20 23 5b | 28 69 29 20 22 c0 09 c2 |oncat #[|(i) "...|
|00001ee0| 51 87 22 20 5b 22 3c 70 | 61 72 61 6d 3e 22 20 69 |Q." ["<p|aram>" i|
|00001ef0| 20 22 3c 2f 70 61 72 61 | 6d 3e 22 5d 20 33 5d 5d | "</para|m>"] 3]]|
|00001f00| 20 35 20 28 23 24 20 2e | 20 37 35 37 36 29 5d 29 | 5 (#$ .| 7576)])|
|00001f10| 0a 23 40 31 31 39 20 47 | 65 6e 65 72 61 74 65 20 |.#@119 G|enerate |
|00001f20| 61 6e 6e 6f 74 61 74 69 | 6f 6e 73 20 66 6f 72 20 |annotati|ons for |
|00001f30| 72 61 6e 64 6f 6d 20 66 | 61 63 65 20 63 68 61 6e |random f|ace chan|
|00001f40| 67 65 2e 0a 4f 6e 65 20 | 61 6e 6e 6f 74 61 74 69 |ge..One |annotati|
|00001f50| 6f 6e 20 65 61 63 68 20 | 66 6f 72 20 66 6f 72 65 |on each |for fore|
|00001f60| 67 72 6f 75 6e 64 20 63 | 6f 6c 6f 72 2c 20 62 61 |ground c|olor, ba|
|00001f70| 63 6b 67 72 6f 75 6e 64 | 20 63 6f 6c 6f 72 2c 20 |ckground| color, |
|00001f80| 69 74 61 6c 69 63 2c 20 | 65 74 63 2e 1f 0a 28 64 |italic, |etc...(d|
|00001f90| 65 66 61 6c 69 61 73 20 | 27 65 6e 72 69 63 68 65 |efalias |'enriche|
|00001fa0| 64 2d 65 6e 63 6f 64 65 | 2d 6f 74 68 65 72 2d 66 |d-encode|-other-f|
|00001fb0| 61 63 65 20 23 5b 28 6f | 6c 64 20 6e 65 77 29 20 |ace #[(o|ld new) |
|00001fc0| 22 08 85 07 00 c1 08 21 | 5c 6e 85 0e 00 c1 5c 6e |"......!|\n....\n|
|00001fd0| 21 42 87 22 20 5b 6f 6c | 64 20 65 6e 72 69 63 68 |!B." [ol|d enrich|
|00001fe0| 65 64 2d 66 61 63 65 2d | 61 6e 73 20 6e 65 77 5d |ed-face-|ans new]|
|00001ff0| 20 33 20 28 23 24 20 2e | 20 37 39 35 39 29 5d 29 | 3 (#$ .| 7959)])|
|00002000| 0a 23 40 33 37 20 52 65 | 74 75 72 6e 20 61 6e 6e |.#@37 Re|turn ann|
|00002010| 6f 74 61 74 69 6f 6e 73 | 20 73 70 65 63 69 66 79 |otations| specify|
|00002020| 69 6e 67 20 46 41 43 45 | 2e 1f 0a 28 64 65 66 61 |ing FACE|...(defa|
|00002030| 6c 69 61 73 20 27 65 6e | 72 69 63 68 65 64 2d 66 |lias 'en|riched-f|
|00002040| 61 63 65 2d 61 6e 73 20 | 23 5b 28 66 61 63 65 29 |ace-ans |#[(face)|
|00002050| 20 22 c0 c1 c2 0b 21 5c | 22 83 13 00 c4 c2 0b 21 | "....!\|"......!|
|00002060| c5 c6 4f 44 43 87 c0 c7 | c2 0b 21 5c 22 83 26 00 |..ODC...|..!\".&.|
|00002070| c8 c2 0b 21 c5 c6 4f 44 | 43 87 c9 0b 21 1e 5c 6e |...!..OD|C...!.\n|
|00002080| cb 0b 21 1e 5c 66 cd 0b | ce 5c 22 1e 0f d0 c3 c6 |..!.\f..|.\".....|
|00002090| 0e 0f 0e 11 24 41 1e 12 | 0e 5c 6e 83 4f 00 c4 0e |....$A..|.\n.O...|
|000020a0| 5c 6e 44 0e 12 42 16 12 | 0e 5c 66 83 5d 00 c8 0e |\nD..B..|.\f.]...|
|000020b0| 5c 66 44 0e 12 42 16 12 | 0e 12 2c 87 22 20 5b 73 |\fD..B..|..,." [s|
|000020c0| 74 72 69 6e 67 2d 6d 61 | 74 63 68 20 22 5e 66 67 |tring-ma|tch "^fg|
|000020d0| 3a 22 20 73 79 6d 62 6f | 6c 2d 6e 61 6d 65 20 66 |:" symbo|l-name f|
|000020e0| 61 63 65 20 22 78 2d 63 | 6f 6c 6f 72 22 20 33 20 |ace "x-c|olor" 3 |
|000020f0| 6e 69 6c 20 22 5e 62 67 | 3a 22 20 22 78 2d 62 67 |nil "^bg|:" "x-bg|
|00002100| 2d 63 6f 6c 6f 72 22 20 | 66 61 63 65 2d 66 6f 72 |-color" |face-for|
|00002110| 65 67 72 6f 75 6e 64 20 | 66 67 20 66 61 63 65 2d |eground |fg face-|
|00002120| 62 61 63 6b 67 72 6f 75 | 6e 64 20 62 67 20 66 61 |backgrou|nd bg fa|
|00002130| 63 65 2d 66 6f 6e 74 20 | 74 20 70 72 6f 70 73 20 |ce-font |t props |
|00002140| 66 6f 72 6d 61 74 2d 61 | 6e 6e 6f 74 61 74 65 2d |format-a|nnotate-|
|00002150| 73 69 6e 67 6c 65 2d 70 | 72 6f 70 65 72 74 79 2d |single-p|roperty-|
|00002160| 63 68 61 6e 67 65 20 65 | 6e 72 69 63 68 65 64 2d |change e|nriched-|
|00002170| 74 72 61 6e 73 6c 61 74 | 69 6f 6e 73 20 61 6e 73 |translat|ions ans|
|00002180| 5d 20 35 20 28 23 24 20 | 2e 20 38 31 39 38 29 5d |] 5 (#$ |. 8198)]|
|00002190| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 65 6e 72 |).(defal|ias 'enr|
|000021a0| 69 63 68 65 64 2d 64 65 | 63 6f 64 65 20 23 5b 28 |iched-de|code #[(|
|000021b0| 66 72 6f 6d 20 74 6f 29 | 20 22 08 83 08 00 c1 c2 |from to)| "......|
|000021c0| 21 88 8a 8c 0b 5c 66 7d | 88 0b 62 88 c5 20 c6 1e |!....\f}|..b.. ..|
|000021d0| 07 1e 08 c9 20 88 0b 62 | 88 ca cb cc c6 23 83 42 |.... ..b|.....#.B|
|000021e0| 00 cd 20 83 2f 00 ce cf | 21 88 d0 d1 94 60 d2 c6 |.. ./...|!....`..|
|000021f0| 24 88 d0 d1 94 60 d3 cc | 24 88 82 1e 00 d4 0b 64 |$....`..|$......d|
|00002200| 0e 15 d6 24 88 0e 08 83 | 57 00 0e 08 d7 20 55 84 |...$....|W.... U.|
|00002210| 69 00 0e 18 83 69 00 0e | 18 d9 3d 83 6f 00 da db |i....i..|..=.o...|
|00002220| 21 84 6f 00 dc 20 88 82 | 7c 00 08 83 77 00 c1 dd |!.o.. ..||...w...|
|00002230| 21 88 de 65 64 5c 22 88 | 2a 08 83 85 00 c1 cc 21 |!..ed\".|*......!|
|00002240| 88 64 2a 87 22 20 5b 65 | 6e 72 69 63 68 65 64 2d |.d*." [e|nriched-|
|00002250| 76 65 72 62 6f 73 65 20 | 6d 65 73 73 61 67 65 20 |verbose |message |
|00002260| 22 45 6e 72 69 63 68 65 | 64 3a 20 64 65 63 6f 64 |"Enriche|d: decod|
|00002270| 69 6e 67 20 64 6f 63 75 | 6d 65 6e 74 2e 2e 2e 22 |ing docu|ment..."|
|00002280| 20 66 72 6f 6d 20 74 6f | 20 65 6e 72 69 63 68 65 | from to| enriche|
|00002290| 64 2d 67 65 74 2d 66 69 | 6c 65 2d 77 69 64 74 68 |d-get-fi|le-width|
|000022a0| 20 74 20 75 73 65 2d 68 | 61 72 64 2d 6e 65 77 6c | t use-h|ard-newl|
|000022b0| 69 6e 65 73 20 66 69 6c | 65 2d 77 69 64 74 68 20 |ines fil|e-width |
|000022c0| 65 6e 72 69 63 68 65 64 | 2d 72 65 6d 6f 76 65 2d |enriched|-remove-|
|000022d0| 68 65 61 64 65 72 20 73 | 65 61 72 63 68 2d 66 6f |header s|earch-fo|
|000022e0| 72 77 61 72 64 2d 72 65 | 67 65 78 70 20 22 5c 6e |rward-re|gexp "\n|
|000022f0| 5c 6e 2b 22 20 6e 69 6c | 20 63 75 72 72 65 6e 74 |\n+" nil| current|
|00002300| 2d 6a 75 73 74 69 66 69 | 63 61 74 69 6f 6e 20 64 |-justifi|cation d|
|00002310| 65 6c 65 74 65 2d 63 68 | 61 72 20 2d 31 20 70 75 |elete-ch|ar -1 pu|
|00002320| 74 2d 74 65 78 74 2d 70 | 72 6f 70 65 72 74 79 20 |t-text-p|roperty |
|00002330| 30 20 68 61 72 64 20 66 | 72 6f 6e 74 2d 73 74 69 |0 hard f|ront-sti|
|00002340| 63 6b 79 20 66 6f 72 6d | 61 74 2d 64 65 61 6e 6e |cky form|at-deann|
|00002350| 6f 74 61 74 65 2d 72 65 | 67 69 6f 6e 20 65 6e 72 |otate-re|gion enr|
|00002360| 69 63 68 65 64 2d 74 72 | 61 6e 73 6c 61 74 69 6f |iched-tr|anslatio|
|00002370| 6e 73 20 65 6e 72 69 63 | 68 65 64 2d 6e 65 78 74 |ns enric|hed-next|
|00002380| 2d 61 6e 6e 6f 74 61 74 | 69 6f 6e 20 65 6e 72 69 |-annotat|ion enri|
|00002390| 63 68 65 64 2d 74 65 78 | 74 2d 77 69 64 74 68 20 |ched-tex|t-width |
|000023a0| 65 6e 72 69 63 68 65 64 | 2d 66 69 6c 6c 2d 61 66 |enriched|-fill-af|
|000023b0| 74 65 72 2d 76 69 73 69 | 74 69 6e 67 20 61 73 6b |ter-visi|ting ask|
|000023c0| 20 79 2d 6f 72 2d 6e 2d | 70 20 22 52 65 2d 66 69 | y-or-n-|p "Re-fi|
|000023d0| 6c 6c 20 66 6f 72 20 63 | 75 72 72 65 6e 74 20 64 |ll for c|urrent d|
|000023e0| 69 73 70 6c 61 79 20 77 | 69 64 74 68 3f 20 22 20 |isplay w|idth? " |
|000023f0| 65 6e 72 69 63 68 65 64 | 2d 69 6e 73 65 72 74 2d |enriched|-insert-|
|00002400| 69 6e 64 65 6e 74 61 74 | 69 6f 6e 20 22 46 69 6c |indentat|ion "Fil|
|00002410| 6c 69 6e 67 20 70 61 72 | 61 67 72 61 70 68 73 2e |ling par|agraphs.|
|00002420| 2e 2e 22 20 66 69 6c 6c | 2d 72 65 67 69 6f 6e 5d |.." fill|-region]|
|00002430| 20 35 5d 29 0a 23 40 31 | 37 30 20 46 69 6e 64 20 | 5]).#@1|70 Find |
|00002440| 61 6e 64 20 72 65 74 75 | 72 6e 20 6e 65 78 74 20 |and retu|rn next |
|00002450| 74 65 78 74 2f 65 6e 72 | 69 63 68 65 64 20 61 6e |text/enr|iched an|
|00002460| 6e 6f 74 61 74 69 6f 6e | 2e 0a 41 6e 79 20 22 3c |notation|..Any "<|
|00002470| 3c 22 20 73 74 72 69 6e | 67 73 20 65 6e 63 6f 75 |<" strin|gs encou|
|00002480| 6e 74 65 72 65 64 20 61 | 72 65 20 63 6f 6e 76 65 |ntered a|re conve|
|00002490| 72 74 65 64 20 74 6f 20 | 22 3c 22 2e 0a 52 65 74 |rted to |"<"..Ret|
|000024a0| 75 72 6e 20 76 61 6c 75 | 65 20 69 73 20 28 62 65 |urn valu|e is (be|
|000024b0| 67 69 6e 20 65 6e 64 20 | 6e 61 6d 65 20 70 6f 73 |gin end |name pos|
|000024c0| 69 74 69 76 65 2d 70 29 | 2c 20 6f 72 20 6e 69 6c |itive-p)|, or nil|
|000024d0| 20 69 66 20 6e 6f 6e 65 | 20 77 61 73 20 66 6f 75 | if none| was fou|
|000024e0| 6e 64 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |nd...(de|falias '|
|000024f0| 65 6e 72 69 63 68 65 64 | 2d 6e 65 78 74 2d 61 6e |enriched|-next-an|
|00002500| 6e 6f 74 61 74 69 6f 6e | 20 23 5b 6e 69 6c 20 22 |notation| #[nil "|
|00002510| c0 c1 c2 c3 23 83 2d 00 | c4 94 62 88 c5 0e 06 21 |....#.-.|..b....!|
|00002520| 84 2d 00 c3 75 88 60 66 | c7 55 83 24 00 c8 c3 21 |.-..u.`f|.U.$...!|
|00002530| 88 82 00 00 c9 ca 60 53 | 5c 22 88 82 00 00 6d 3f |......`S|\"....m?|
|00002540| 85 51 00 c4 94 1e 0b c4 | 95 1e 5c 66 cd 94 cd 95 |.Q......|..\f....|
|00002550| 7b 97 1e 0e c3 94 3f 1e | 0f 0e 0b 0e 5c 66 0e 0e |{.....?.|....\f..|
|00002560| 0e 0f 46 2c 87 22 20 5b | 73 65 61 72 63 68 2d 66 |..F,." [|search-f|
|00002570| 6f 72 77 61 72 64 20 22 | 3c 22 20 6e 69 6c 20 31 |orward "|<" nil 1|
|00002580| 20 30 20 6c 6f 6f 6b 69 | 6e 67 2d 61 74 20 65 6e | 0 looki|ng-at en|
|00002590| 72 69 63 68 65 64 2d 61 | 6e 6e 6f 74 61 74 69 6f |riched-a|nnotatio|
|000025a0| 6e 2d 72 65 67 65 78 70 | 20 36 30 20 64 65 6c 65 |n-regexp| 60 dele|
|000025b0| 74 65 2d 63 68 61 72 20 | 6d 65 73 73 61 67 65 20 |te-char |message |
|000025c0| 22 57 61 72 6e 69 6e 67 | 3a 20 6d 61 6c 66 6f 72 |"Warning|: malfor|
|000025d0| 6d 65 64 20 61 6e 6e 6f | 74 61 74 69 6f 6e 20 69 |med anno|tation i|
|000025e0| 6e 20 66 69 6c 65 20 61 | 74 20 25 73 22 20 62 65 |n file a|t %s" be|
|000025f0| 67 20 65 6e 64 20 32 20 | 6e 61 6d 65 20 70 6f 73 |g end 2 |name pos|
|00002600| 5d 20 34 20 28 23 24 20 | 2e 20 39 32 37 35 29 5d |] 4 (#$ |. 9275)]|
|00002610| 29 0a 23 40 34 37 20 4c | 6f 6f 6b 20 66 6f 72 20 |).#@47 L|ook for |
|00002620| 66 69 6c 65 20 77 69 64 | 74 68 20 69 6e 66 6f 72 |file wid|th infor|
|00002630| 6d 61 74 69 6f 6e 20 6f | 6e 20 74 68 69 73 20 6c |mation o|n this l|
|00002640| 69 6e 65 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ine...(d|efalias |
|00002650| 27 65 6e 72 69 63 68 65 | 64 2d 67 65 74 2d 66 69 |'enriche|d-get-fi|
|00002660| 6c 65 2d 77 69 64 74 68 | 20 23 5b 6e 69 6c 20 22 |le-width| #[nil "|
|00002670| 8a c0 c1 60 c2 5c 5c c3 | 23 85 0e 00 c4 70 21 29 |...`.\\.|#....p!)|
|00002680| 87 22 20 5b 73 65 61 72 | 63 68 2d 66 6f 72 77 61 |." [sear|ch-forwa|
|00002690| 72 64 20 22 54 65 78 74 | 2d 57 69 64 74 68 3a 20 |rd "Text|-Width: |
|000026a0| 22 20 31 30 30 30 20 74 | 20 72 65 61 64 5d 20 34 |" 1000 t| read] 4|
|000026b0| 20 28 23 24 20 2e 20 39 | 37 35 31 29 5d 29 0a 23 | (#$ . 9|751)]).#|
|000026c0| 40 33 37 20 52 65 6d 6f | 76 65 20 66 69 6c 65 2d |@37 Remo|ve file-|
|000026d0| 66 6f 72 6d 61 74 20 68 | 65 61 64 65 72 20 61 74 |format h|eader at|
|000026e0| 20 70 6f 69 6e 74 2e 1f | 0a 28 64 65 66 61 6c 69 | point..|.(defali|
|000026f0| 61 73 20 27 65 6e 72 69 | 63 68 65 64 2d 72 65 6d |as 'enri|ched-rem|
|00002700| 6f 76 65 2d 68 65 61 64 | 65 72 20 23 5b 6e 69 6c |ove-head|er #[nil|
|00002710| 20 22 c0 c1 21 83 0e 00 | 60 c2 95 7c 88 82 00 00 | "..!...|`..|....|
|00002720| c0 c3 21 85 17 00 c4 c5 | 21 87 22 20 5b 6c 6f 6f |..!.....|!." [loo|
|00002730| 6b 69 6e 67 2d 61 74 20 | 22 5e 5b 2d 41 2d 5a 61 |king-at |"^[-A-Za|
|00002740| 2d 7a 5d 2b 3a 20 2e 2a | 5c 6e 22 20 30 20 22 5e |-z]+: .*|\n" 0 "^|
|00002750| 5c 6e 22 20 64 65 6c 65 | 74 65 2d 63 68 61 72 20 |\n" dele|te-char |
|00002760| 31 5d 20 32 20 28 23 24 | 20 2e 20 39 39 32 34 29 |1] 2 (#$| . 9924)|
|00002770| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 65 6e |]).(defa|lias 'en|
|00002780| 72 69 63 68 65 64 2d 64 | 65 63 6f 64 65 2d 66 6f |riched-d|ecode-fo|
|00002790| 72 65 67 72 6f 75 6e 64 | 20 23 5b 28 66 72 6f 6d |reground| #[(from|
|000027a0| 20 74 6f 20 63 6f 6c 6f | 72 29 20 22 c0 c1 5c 6e | to colo|r) "..\n|
|000027b0| 50 21 1b c4 0b 21 84 2d | 00 0d 83 16 00 c6 0b 21 |P!...!.-|.......!|
|000027c0| 84 2d 00 0d 83 5c 22 00 | c7 c8 5c 6e 5c 22 88 82 |.-...\".|..\n\"..|
|000027d0| 2d 00 c9 0b 21 83 2d 00 | c7 ca 5c 6e 5c 22 88 0e |-...!.-.|..\n\"..|
|000027e0| 0b 0e 5c 66 c3 0b 46 29 | 87 22 20 5b 69 6e 74 65 |..\f..F)|." [inte|
|000027f0| 72 6e 20 22 66 67 3a 22 | 20 63 6f 6c 6f 72 20 66 |rn "fg:"| color f|
|00002800| 61 63 65 20 69 6e 74 65 | 72 6e 61 6c 2d 66 69 6e |ace inte|rnal-fin|
|00002810| 64 2d 66 61 63 65 20 77 | 69 6e 64 6f 77 2d 73 79 |d-face w|indow-sy|
|00002820| 73 74 65 6d 20 66 61 63 | 65 6d 65 6e 75 2d 67 65 |stem fac|emenu-ge|
|00002830| 74 2d 66 61 63 65 20 6d | 65 73 73 61 67 65 20 22 |t-face m|essage "|
|00002840| 57 61 72 6e 69 6e 67 3a | 20 63 6f 6c 6f 72 20 5c |Warning:| color \|
|00002850| 22 25 73 5c 22 20 69 73 | 20 6e 6f 74 20 64 65 66 |"%s\" is| not def|
|00002860| 69 6e 65 64 2e 22 20 6d | 61 6b 65 2d 66 61 63 65 |ined." m|ake-face|
|00002870| 20 22 57 61 72 6e 69 6e | 67 3a 20 43 6f 6c 6f 72 | "Warnin|g: Color|
|00002880| 20 5c 22 25 73 5c 22 20 | 63 61 6e 27 74 20 62 65 | \"%s\" |can't be|
|00002890| 20 64 69 73 70 6c 61 79 | 65 64 2e 22 20 66 72 6f | display|ed." fro|
|000028a0| 6d 20 74 6f 5d 20 34 5d | 29 0a 28 64 65 66 61 6c |m to] 4]|).(defal|
|000028b0| 69 61 73 20 27 65 6e 72 | 69 63 68 65 64 2d 64 65 |ias 'enr|iched-de|
|000028c0| 63 6f 64 65 2d 62 61 63 | 6b 67 72 6f 75 6e 64 20 |code-bac|kground |
|000028d0| 23 5b 28 66 72 6f 6d 20 | 74 6f 20 63 6f 6c 6f 72 |#[(from |to color|
|000028e0| 29 20 22 c0 c1 5c 6e 50 | 21 1b c4 0b 21 84 2d 00 |) "..\nP|!...!.-.|
|000028f0| 0d 83 16 00 c6 0b 21 84 | 2d 00 0d 83 5c 22 00 c7 |......!.|-...\"..|
|00002900| c8 5c 6e 5c 22 88 82 2d | 00 c9 0b 21 83 2d 00 c7 |.\n\"..-|...!.-..|
|00002910| ca 5c 6e 5c 22 88 0e 0b | 0e 5c 66 c3 0b 46 29 87 |.\n\"...|.\f..F).|
|00002920| 22 20 5b 69 6e 74 65 72 | 6e 20 22 62 67 3a 22 20 |" [inter|n "bg:" |
|00002930| 63 6f 6c 6f 72 20 66 61 | 63 65 20 69 6e 74 65 72 |color fa|ce inter|
|00002940| 6e 61 6c 2d 66 69 6e 64 | 2d 66 61 63 65 20 77 69 |nal-find|-face wi|
|00002950| 6e 64 6f 77 2d 73 79 73 | 74 65 6d 20 66 61 63 65 |ndow-sys|tem face|
|00002960| 6d 65 6e 75 2d 67 65 74 | 2d 66 61 63 65 20 6d 65 |menu-get|-face me|
|00002970| 73 73 61 67 65 20 22 57 | 61 72 6e 69 6e 67 3a 20 |ssage "W|arning: |
|00002980| 63 6f 6c 6f 72 20 5c 22 | 25 73 5c 22 20 69 73 20 |color \"|%s\" is |
|00002990| 6e 6f 74 20 64 65 66 69 | 6e 65 64 2e 22 20 6d 61 |not defi|ned." ma|
|000029a0| 6b 65 2d 66 61 63 65 20 | 22 57 61 72 6e 69 6e 67 |ke-face |"Warning|
|000029b0| 3a 20 43 6f 6c 6f 72 20 | 5c 22 25 73 5c 22 20 63 |: Color |\"%s\" c|
|000029c0| 61 6e 27 74 20 62 65 20 | 64 69 73 70 6c 61 79 65 |an't be |displaye|
|000029d0| 64 2e 22 20 66 72 6f 6d | 20 74 6f 5d 20 34 5d 29 |d." from| to] 4])|
|000029e0| 0a                      |                         |.       |        |
+--------+-------------------------+-------------------------+--------+--------+